IBR HAINTENASCE DIAGNOSTIC PROGBAM PART MO. 5129658 

PAGE 1 

r?53 CE DISK INITIALIZER 

EBB LOC OBJECT CODE ADDR STHT SOURCE STATEMENT 

2 * DATE OF LAST REVISION OR UPDATF, 09-2 9-70 

0000 3 FF5 START 

!» DECK '4 

5 ******************************************.?****************+*********** 

6 * 3XSTEH/3 CE DISK INITIALIZER * 

7 * * 
0»00 8 ORG X'OAOO' 

9 
0A00 10 INIT EQU * 

-,1 *************** ************* ************* ******** v ****** ,** ****** ****** 

12 * * 

13 * SECTION PREFACE * 

14 * * 
0A00 FF53 0A01 15 DC XL2'FF53' 

0AC2 00 0A02 16 DC XLI'OO' SECTION FLAGS 

OA03 01 0A03 17 DC XLI'OV ROUTINE NO. 

OAOU 0000 0A05 18 DC XL2'00' RESERVED 

0A06 OAOD 0A07 19 DC AL2(INITA) APDRESS OF FIRST ROUTINE PREFIX 

0A08 0000 0A09 20 DC AL2(*-*) ADDRESS OF ERROR RECORDING TABLE 

OAOA VJ1000 OAOC 21 DC XL3'A01000' SPOT 

22 * * 

2 3 ***************************♦****.♦************************************** 

24 

25 ********* ******** ****************************************** ************ 

26 * * 

27 * ROUTINE PREFACE * 
28 

OAOD 01 OAOD 29 INITA DC XL1 • 01 ' ROUTINE HO. 

OAOE 00 OAOE 30 DC XLI'OO' HOUTInE FLAGS 

OAOF OCE9 0A10 31 DC AL2 (RTN02) ADDRESS OF NEXT ROUTINE 

32 * * 



33 ************************************************************************ 



i&ITE 0%»?*70 2*MAT70 0UUG70 01OCT70 PROG ID 0rF5-3 

!K 90. 571516 57"!513 571531 5715*0 P»G* 1 



IBH KAINTEHANCE DIAGNOSTIC PROGRAM 



PART HO. 
PAGE 



5129658 
1A 



FF53 



C E 



DISK 



ISITIALIZ 



EHR LOC OBJECT CODE 



ADDS STHT SOURCE STATEMENT 



0A11 CO 87 OF31 

0A15 3C 00 1772 

0A19 3C 00 1773 

0A1D 3C 00 1774 



0A21 


3C 55 


177A 


0A25 


3C 17 


1775 


0A29 


3B 7F 


1774 


0A2D 


3C 00 


177B 


CA31 


3C 08 


OF 30 


0A35 


CO 87 


166D 


0A39 


00 




DATA 


00 




0A3B 


17 72 




0A3D 


CO 87 


14EC 


0AU1 


38 40 


02 OA 


0A45 


F2 10 


44 


0A48 


3C 08 


1075 


0A<iC 


CO 87 


166D 


0A50 


01 




0A51 


01 




0A52 


17 76 




0A54 


CO V7 


0CC4 



0A39 
3A3A 
0A3C 



0A50 
0A51 
0A5 3 



0A58 OD 00 1773 1777 
0A5E 12 3 1 27 

0A61 39 03 1776 
0A65 F2 10 03 
0A68 F2 R7 IT- 

0S6B 3'v 00 0F30 
0A6F T"> 81 CC 

0A72 CO 87 166D 

0A76 00 

0A77 01 

0A78 1772 

OATA CO 87 0A7E 

0A7E OF 00 0F30 176D 

0A84 CO 87 0A3S 

0A88 3C 00 1075 

0A8C CO 87 16. SD 
0A90 02 
0A91 01 
0A92 1772 

0A9H CO 87 1272 

0A98 3D 00 177B 
0A9C F2 01 48 



0A76 
0A77 
0A79 



0A90 
0A91 
OA93 



35 
36 
37 

38 
39 
40 

<n 

42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
36 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 



* 
INITAB 



OPERATING INSTRUCTIONS 

AT THE FIRST HALT, SET THE FOLLOWING SWITCHES, 

1. SET SWITCH 10 TO RON ON THE REMOVABLE DISK -OR- 

2. SET SWITCH 11 TO HON CN THE FIXED DISK 

3. SET SWITCH 12 TO RON ON DISK DRIVE 1 

4. SET SWITCH 13 TO RON ON DISK DRIVE 2 

5. SET SWITCH 1 4 TO INITILIZE »LL CYLINDERS IF THE REMOVABLE 

DIS" HAS BEEN SELECTED. 

6. SET SWITCH 16 TO BAKE 5 PASSES ON EACH WRITE AND VERIFY 

B INITAA SETUP FOR INITIALIZATION 

SET INITIAL VALUES PRIOR TO 3EGINNING DISK INITIALIZATION 

BVI WRTDFC,00 SET FLAG BYTE TO 00. 

BVI WRTDFC+1,00 SET CYLINDER NOBBER TO 00. 

BVI WRTDFC+2,00 SET HEAD AND SECTOR TO 00. 

TEST ONE TRACK WITH DATA PA7TERN 55 



PROCED 
INITAC 



INITAD 



INITBB B 



BVI 

BVI 
SBF 
BVI 
BVI 

B 

EC 
DC 
DC 

B 

TBN 

JT 

BVI 

B 

CC 

DC 

DC 

B 

CLC 

JE 

TBF 

JT 

J 

CLI 

JE 

B 

DC 
DC 
DC 

B 



SLC 
E 

.1VI 
p 

DC 
DC 
DC 



CLI 

JNE 



WORK,X '55' 
WRTDFC+3,23 
WRTDFC+2,X'7F' 
ERRFLG,C 
RETRY, 8 

STRTIO 
XLVOO' 
XL TOO' 
AL2(WRTDFC) 
SEEKER 

SECTSW,X'40' 
INITBB 
DISKTP,X' 08' 
STRTIO 
XLVOV 

>:li '01 • 

AL2(RDDFC) 
READER 

WRTDFC + 1 (1) , RDDFC+1 
INITBB-4 

RDDFC,X' 03' 
♦ ♦6 
INITBB-4 

RETRY .0 
IDERR 

STRTTO 
XLI'O' 
XL1' 1« 
AL2(WRTD?C) 
**4 

RETRY (1) ,ONE 

INITAD 

DISKTP,0 

STRTIO 

XLV02 ' 

XLVOV 

AL2(WRTDFC) 

STEP12 

ERRFL&,0 
INITAF 



SET DATA PATTERN IN WRITE AREA 

SET NO. OF SECTORS TO EQOAL 24 

SET SECTOR BITS TO ZERO 

ZERO FLAG 

SET SEEK RETRY COONTEP 

TC I/O SDBROOTINE TO SEEK 

FUNCTION CODE 

CONTROL CODE 

CONTROL FIELD ADDRESS 

ERROR RETURN 

TEST FOR RUNNING ON FIXED 

JURP IF YES 

SET FOR FIXED DISK 

TO READ ID 

FUHCTION CODE, (READ) 

CONTROL CODE, (ID) 

CONTROL FIELD ADDRESS 

ERROR RETURN 

COMPARE ACTUAL ADDRESS WITH EXPECTED 
JOHP IF SEEKED TO CORRECT ADDRESS 

CHECK BOTH FLAGS OFF 
IF OFF, RETRY COBB AND 
OTHERWISE CONTINUE 

CHECK RETRY COUNTEH 

JUHP IF 8 RETRIES HAVE BEEN BADE 

TO RECALIBRATE 
FUNCTION CODE, (CONTROL) 
CONTROL CODE, (RECALIBRATE) 
CONTROL FIELC ADDRESS 



DECREMENT RETRY COUNTER 

GO SEEK AGAIN 

SET FOR REMOVABLE 

TO I/O SUBROUTINE TO WRITE ID. 

FUNCTION CODE 

CONTROL CODE 

CONTROL FIELD ADDRESS 

ERROR RETURN, 

WAS THERE ANY ERROR? 
JUMP IF YES 



ATE 

C NO. 



06APB70 
571516 



22HAY70 
571513 



01AUG70 
571531 



1OCT70 
571540 



PROG ID 
PAGE 



0FF5-3 
'.A 



IBH HAINTENANCK DIAGNOSTIC PROGRAM 



PART 80. 
PAGE 



5129658 

2 



FF53 



C E 



DISK 



EBH LOC OBJECT CODE 

0A9F 38 7F 1774 

0AA3 3C 17 1775 

0AA7 CO 87 166D 

OAAB 01 

OAAC 03 

OAAD 1772 

OAAF CO 87 1223 

0AB3 3D 00 177B 

0A37 F2 01 2D 



OABA 3D 00 177A 

OABF. F2 81 08 

0AC1 3C 00 177A 

0AC5 CO 87 0A25 



0AC9 38 02 020A 

OACD F2 90 17 

OAEO 3D 00 176E 

OAD«l F2 01 06 

0AD7 OC 00 176E 176F 

OADD OF 00 176E 176D 

0AE3 CO 01 CA21 



0AE7 38 80 1774 

OAEB F2 10 08 

OAEE 3A 80 1774 

0AF2 CO 37 0A21 

0AF6 3B 80 177U 

OAFA 07 00 1773 176D 

OBOO 33 08 020A 

0B04 F2 10 2A 

OB07 38 40 020A 

OBOB F2 10 23 

OEOf C2 01 0B83 
0B12 ID 00 1773 00 
0B17 F2 01 06 
0B1A OE 00 1773 176D 
0B2O D2 01 01 
0B23 34 01 0B8E 
0B27 OD 01 0B8E 0B8C 
0B2D CO 01 CB12 

0B3 i OD 00 1773 177C 
0E3V F2 34 55 
OB 3 A CO 87 0?21 

0B3E CO 67 021A 
0B4 2 C6 
0B43 31 
0B44 0B82 
0B46 A0F9 

0B48 CO 87 0222 
0B4C A0F9 

0E4E CO 87 0A11 



OAAB 

OAAC 
OAAE 



0B42 
0B43 
0B45 
0B47 



0B4D 



CLI 

JE 

BVI 

3 



ISITAQ TBS 
JF 
Ctl 
JNE 
HVC 
SLC 
BNZ 



0B52 C3OD5D5D6E340E2 0B82 
0E5A C5C5D240E3D640C3 
0B62 D6D9D9C5C3E340C3 



IS ITIA LIZEB 



ATDB STHT SOURCE STATEMENT 



103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

113 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

15H? 

160 

16' 

162 

163 

164 

165 

166 

167 

168 

168 

168 



SBF 


WRTDFC*2,X '7P» 


BVI 


WRTDFC*3,23 


5 


STBTIO 


DC 


XLI'01 • 


DC 


XLI'03' 


DC 


AL2 (WRTDFC) 


E 


STEP10 


CLI 


ERRFLG,0 


JNE 


INITA? 



SET SECTOB BITS TO ZERO 

SORNAL RETURN, SET TO VERIFY. 

TO I/O SUBROUTINE TO VERIFY. 

FUNCTION CODE 

CONTROL CODE 

CONTROL FIELD ADDRESS 

ERROR RETORS 

IAS THERE AST ERROR? 
JOHP IF YES 



TEST OSS TRACK WITH DATA PATTERS 00. 



WORK, 00 
ISITAQ 
WORK,X'0O' 
INITAC 



HAVE BOTH DATA PATTERNS BEEN DSED? 
JOHP IF YES 
CHANGE PATTERN 



REPEAT 5 TIMES IF SS816 IS OS 



ESC16 



ISITAF 



INITAG 



SWITCH, X" 02' 

END16+4 

COUNT, X»00' 

**9 

COUNT(1) ,FIv 

COUNT (1) ,OSE 

PROCED 



CHECK FOR 

SENSE SWITCH 16 ON 
INITIALIZE 

COUNTER FOT 
FIVE REPETITIONS 
WRITE AND VERIFY 

FIVE TIBES 



BOTH PATTERNS HAVE 3F.2N USED, NOW STEP TO THE NEXT TRACK 



TBN 

JT 

SBN 

B 

SBF 

ALC 

TBN 

JT 

TBS 

JT 



LA 
CKCYL CLC 
JNE 
ALC 
STPfTH LA 
ST 
CLC 
ENE 

CLC 

JH 

B 

E 

DC 

DC 

DC 

DC 

B 
DC 



INITBA 



ID ERR 



HRTDFC+2,X«80' 

INITAG 

WRTDFC+2,X' 80' 

PROCED 

WRTDFC+2,X'80' 

WRTDFC+1 (1) .ONE 

SWITCH, X» 08' 

INITBA 

SECTSW,X'40' 

INITBA 

CYLTBL.XR1 

WRTDFC+1 (1) ,0(,XR1) 

ST PPT R 

WRTDFC+1 (1) ,OSE 

1 (,XR1) ,XR1 

SAVXR1.XR1 

SAVXR1 (2) ,TBLEND 

CKCYL 

WRTDFC + 1 (1) , TRACK* 

INITAH 

PROCED 

PRINT 

XL1'C6» 

IL1»49« 

AL2(IDERHG) 

XL2'A0F9' 

HALT 
XL2'A0F9' 



IS TRACK *1 BIT 08? 

JUHP IF YES 

SET ON IF IT WAS OFF 

PROCEED TO TEST NEXT TRACK 

TURN OFF TRACK #1 BIT 

ADD ONE TO CYLINDER NUHBER 

TEST FOR INITIALIZING ALL CYLINDERS 

JUHP I? YES 

TEST FOR RUN ON FIXED DISK 

JUHP IF YES 

SET XR1 TO POJNT TO TABLE 

CHECK THIS AEDRESS 

JUHP IF NOT EQUAL TO ONE IS TABLE 

STEP WRITE ADDRESS OHE CYLINDER 

STEP XR1 +1 

STORE FOR COMPARISON 

CHECK XR1 FOR STEPPED TO LIBIT 

BRANCH IF HOT DONI 

IS THIS VALUE HIGHER THAN BAX. 
YES, PROCEED TO PART 2. 
NO, USE THIS CYLINDER 

TO PRINT READ ID ERROR 

FLAGS 

LENGTH 

MESSAGE ADDRESS 

HESSAGE ID 

TO DCP ERROR HALT 
HALT ID 



IDERMG DC 



INITAB-4 

CL49»CANNOT SEEK TO CORRECT CYLINDER BEFORE WRITING ID' 



DATE 

[EC NO. 



06APB70 
571516 



22HAY70 
571513 



01AUG70 
571531 



01OCT70 
571540 



FROG ID 
PAGE 



0FF5-3 
2 



IBH HAINTENANCE DIAGNOSTIC PROGRAH 



PAPT SO. 
PAGE 



5129658 

2A 



FF53 



C E 



DISK 



EBB LOC OBJECT CODE 



INITIALIZER 



ADDB STHT SOURCE STATEHENT 



0B6J I8t3C9D5C4C5D94r 




168 






0E72 C2C5C6E6B9C540Fo 




168 






0B7A C9C9E3C9DSC740'.9 




168 






0B82 C4 






163 
169 










0B83 


170 CYLT3L 


EQU 


* 


0B83 C4C50647 




0386 


171 


CC 


XL4 , 04050647« 


0B87 48494A4B 




0B8A 


172 


DC 


XL4'48494A4B' 


OB8B 0B8B 




0E8C 


173 TBLESD 


DC 


AL2(*) 


0B8D 0000 




0B8E 


174 SAVIR1 

175 
175 


DC 


XL2'0' 








176 • 


INITIALIZATION IS C0-P1ETS, 








177 * 


AND CCHPA3E IT AGAINST THE 








173 






0B8F OC CO 1773 ' 


177C 




179 INITAH 


HVC 


HHTDFC-rl (1) .TRACK* 


0B95 3A 80 1774 






1 80 


S3N 


WRTDFC+2 ,X'30* 


0B99 35 02 0F2D 






181 


L 


LSTADR,XR2 


0B9D 34 02 0F2B 






182 


ST 


LSTSAV,XR2 


0BA1 34 02 0F29 






193 


ST 


ALTLST.XR2 


0BA5 OC 02 149B 


( 774 




184 INITAI 


HVC 


BBTSAV(3) ,WRTDFC+2 


OEAB 3C 08 0F30 






185 


HVI 


RETRY, 9 


OBAF CO 87 166;i 






196 INITAN 


B 


STHTIO 


0BB3 00 




0EB3 


187 


DC 


XLI'OO' 


0BB4 00 




0BB4 


188 


DC 


II TOO' 


0BB5 1772 




0EB6 


189 


DC 


AL2(BRTDFC) 


0BB7 CO 87 14EC 






190 
191 


E 


SEEKER 


OBBB CO 87 166D 






192 INITAE 


3 


STRTIO 


OBBF 01 




OEBF 


193 


DC 


JLI'OV 


OBCO 01 




OBCO 


194 


DC 


XLV01 « 


0BC1 1776 




0BC2 


195 


DC 


AL2(SDD?C) 


0BC3 CO 87 0CC4 






196 
197 


B 


READER 


0BC7 OD 00 149A 


1773 




199 


CLC 


WRTSAV-1 (1) ,W3TDFC+1 


OBCD F2 81 45 






199 


JE 


INITAJ 


OBDO 3D 02 1776 






200 


CLI 


PDD/C, 02 


0BD4 F2 91 »<> 






201 


JE 


INITAK 


0BD7 3D 01 1776 






202 


CLI 


RDDFC.01 


OBDB F2 81 B8 






203 
2 04 * 


JE 


INITAL 


OBDE 3D 00 0F30 






205 


CLI 


RETRY, 


0BE2 F2 81 1C 






206 


JE 


INITAO 


0BE5 OC 02 1774 


149B 




2 07 


HVC 


WRTDFC+2 (3) ,WRTSAV 


OBEB CO 87 166D 






208 


B 


STRTIO 


OBEF 00 




OBEF 


209 


DC 


XL1 'O' 


OBFO 01 




CBFO 


210 


DC 


XLI'OV 


0BF1 1772 




0BF2 


211 


DC 


AL2(WRTDFC) 


0BP3 CO 87 0BF7 






212 


B 


*+4 


0BP7 OF 00 OF30 


176D 




213 


SLC 


RETRY(1) ,ONE 


OEFC CO 87 OBAF 






214 
215 


B 


INITAN 


OC01 CO 87 021A 






216 INITAO B 


PRINT 


0C05 C6 




0C05 


217 


CC 


XL1'C6» 


0C0 6 2 A 




0C06 


218 


DC 


ILV42' 


OC07 0E3A 




0C08 


219 


DC 


AL2{ERROB3) 


0C09 AOOA 




OCOA 


220 


DC 


XL2'A00A« 


OCOB CO 87 0222 






221 


B 


HALT 


OCOF AOOA 




0C10 


222 


DC 


XL2' AOOA' 


0C1 1 CO 87 0A1 1 






223 
224 


B 


INITAB-4 


0C15 OC 02 1774 


149B 




225 INITAJ HVC 


WRTDFC+2 (3) ,WRTSAV 


0C1B 38 80 1774 






226 


TBN 


WRTDFC+2, X'80' 


0C1F F2 90 08 






2 27 


JF 


INITAH 


0C22 3B 80 1774 






228 


SBF 


WRTDFC+2, X' 30' 


0C26 CO 87 0BA5 






229 


B 


INITAI 


"«C2A 3A 80 1774 






230 INITAH 3BN 


WRTDFC+2, X«80' 


0C2E OF 00 1773 


1?6D 




231 


SLC 


WFTDFC + 1 (1) ,ONE 


DATE 06APB7 


2 2HA7 70 


01 AOG70 


1OCT70 


EC *0. 571516 


571513 


571531 


571540 



NOW READ THE ID OS EACH TRACK 
EXPECTED ID 

SET CYLINDER SC. TO LAST OSS 
TORS OS TRACK 1 PIT. 
INITIALIZE POINTS? 
ASD SAVE 

SAVE ORIGINAL FLAG, CYL 6 HEAD. 

LOAD RETRY COUNTER 

TO I/O SEB&ODTISE TO SEEK 

FUNCTION COOE 

CONTROL CODX 

CONTROL FIELD ADDRESS 

ERROR RETURN 

TO I/O S03RODTINE TO FEAC ID 

FUNCTION CODE 

CONTROL CODE 

CONTROL FIELD ADDPESS 

ERROR RETURN 



EXPECTED 

EQUAL 
FLAG BYTE =02, 
GO SET ADDRESS 
FLAG BYTE =01, 
GO COHPARE READ 



VS RECIEVED. 



(DEFECTIVE) ? 
IN TABLE 
(ALTERNATE) ? 
ADDRESS VS 



COHPARE 

JUHP IF 

DOES 

YES, 

DOES 

YES, 

THE ADDRESSES IN THE LIST. 

HAVE 8 RETRY'S BEEN HADE ? 

JOHP TO PRINT IF YES 

RESTORE CONTROL FIELD 

DO RECALIBRATE IF NO 

FUNCTION CORE (CONTROL) 

CONTROL CODE {SEC ALI ERATE) 

CONTROL FIELD ADDRESS 

DECREMENT RETRY COUNTER BY ONE 
TRY TO HEAD ID AGAIN 

GO PRINT DOE TO AN INVALID CONDITION 

FLAGS 

LENGTH 

ADDRESS OF LAST PRINT CHARACTER 

HESSAGE IDENTIFICATION 

TO DCP HALT 

HALT ID 

TO TEST FOR ENTRIES 

RESTORE ORIGINAL F, C 6 S BITS 

TEST TRACK ONE BIT FOR ON. 

JOHP IF OFF 

TORN OFF IF PREVIOUSLY ON. 

GO READ ANOTHER ID 

TURN ON IF PSEVICUSLY OFF 

REDUCE CYLINDER VALUE BY ONE 



PBOG ID 
PAGE 



0FF5-3 
2A 



IBS BAISTESASCE DIAGNOSTIC PROGBAB 



PAPT SO. 
PAGE 



5129658 
3 



FF53 



DISK 



INITIALIZER 



EFR LOC OBJECT CODE 



0C3U 33 08 020A 

0C38 F2 10 2k 

0C3S 38 40 O20A 

0C3F F2 10 23 

0C42 C2 01 0E2D 
0C46 ID CO -773 CO 
9CU3 F2 01 06 
OCU? OF 00 1773 176D 
0C54 D2 01 01 
0C57 31 01 033E 
0C5« 00 01 0B9E 0E36 
0C61 CO 01 0C46 

0C6= 3D FF 177 3 

0C69 CO 01 0EA5 

0C6D CO B7 021A 

0C71 06 

0C72 13 

0C7J 1797 

0C7S CO 87 0222 

0C79 A0F8 

0C73 CO 87 022A 

0C7? CO 

0C30 35 02 0F2 3 

0C8U 8C 01 01 1774 

0C39 EH 7F 01 

0C3C OE 01 0F2B 0F2F 

0C9 2 CO 87 0C15 

0C96 35 02 0F29 
0C9A 3B 7F 149B 
0C9E 2D 01 149E 01 

0CA3 F2 01 OA 

0CA6 02 01 0F29 0F2F 

OCAC CO 87 0C15 

OCBO CO 87 021A 

0CB4 C6 

0CB5 30 

0CB6 OEBA 

0CE8 A0F4 

0CB& CO 87 0222 

0C3E A0F4 

OCCO CO 87 0A11 

0CC<» 3D 00 0F30 

0CC8 F2 81 OA 

OCCE OF 00 0F30 176D 

CCD1 CO 87 OBEB 

0CD5 CO 87 021A 

0CD9 C6 

OCDA 2A 

OCDB 0E60 

OCCE AOOF 

OCDP CO 87 0222 

0CE3 AOOF 

0CE5 CO 87 0A11 



ADDS 


STST : 


SOURCE 


STATEHEST 




232 










233 




TBS 


SBITCH.X* 08' 




234 




JT 


ISJTAP 




235 




TBS 


SECTSM.I^O' 




236 




JT 


ISITAP 




237 










238 




LA 


T3LBEV.XH1 




239 


CKCYLI 


CLC 


SPTDFC*1 (1) ,0(,XR1) 




2*0 




JSE 


•♦9 




241 




SLC 


HBTDFC»1 (1) ,OSS 




242 




LA 


1 (,IR1) ,XR1 




243 




ST 


SAVIh1,IB1 




244 




CLC 


SAVXR1 (2) ,TBLESE 




2 -'5 




EHE 


CKCYLI 




2 6 










2<*7 


ISITA? 


CLI 


BRTDPC+I.I'FF 1 




248 




BUE 


ruiTAl 




249 




"c 


PRIST 


0C71 


250 




DC 


XLV06> 


0C7 2 


251 




DC 


ILI'27' 


0C74 


25 2 
253 




DC 


AL2(«SG01) 




254 




B 


HALT 


0C7A 


255 




DC 


XL2' A0F8» 




256 




B 


LOAD 


0C7F 


257 
253 




EC 


XLI'OO' 




259 


INITAK 


1 


LS.3AV.XB2 




260 




KVC 


1 (2.XB2) ,HRTDFC*2 




261 




SBF 


1 (,XR2),X'7F' 




2 62 




ALC 


LSTSAV(2) ,TWO 




263 




E 


INITAJ 




264 










265 


ISITAL 


L 


ALTLST,XB2 




266 




S3F 


BRTSAV,X'7F' 




26 7 




CLC 


HHTSAV(2) .1 (,X32) 




268 


* 








2c9 




JHE 


VRTER4 




270 




ALC 


ALTLST(2) ,TWO 




271 




B 


INITAJ 




272 


PBTER4 


B 


PRINT 


0CB4 


273 




DC 


XLVC6' 


0CB5 


274 




DC 


IL1'48« 


0CB7 


275 




DC 


AL2(ERHOR4) 


0CB9 


276 




DC 


XI2'A0F4« 




277 




E 


HALT 


OCBF 


278 




DC 


XL2'A0F4» 




279 
2 F 




B 


INITAB-4 




EADER 


CLI 


RETRY, 




2 




JE 


READPT 




28J 




SLC 


aETRY(l) #ONE 




284 




E 


INITAE 




285 










286 


REAEPT 


1 B 


PRIST 


0CD9 


287 




DC 


XL 1 • C6 ' 


OCDA 


288 




DC 


IL1'42« 


OCDC 


289 




DC 


AL2(ERROR9) 


OCDE 


2 90 




DC 


XL2'A00F' 




291 




B 


HALT 


0CE4 


292 




DC 


XL2' AOOF' 




293 




B 


INITAB-4 



TEST FOP INITIALIZING ALL CTL. 

TOBP IF TES 

T-^ST FOR BOS OB FIXED DISK 

JOHP IF TES 

LOAD TABLE ADDRESS IS IR1 
CHECK THIS ACDRESS 
JOBP IF HOT IN TABLE 
R3D0CE ADDRESS BT ONE 
ST?P XB1 *1 
STOKE FOB COBPAPE 
CHECK FOB FIHISHED 
BRABCh IF HOT DOSE 

TEST FOR ailCS ONE 

BRANCH IF H"T DOSE 

TO PRIST C iRPTETIOS MESSAGE 

FLAGS 

LENGTH 

ADDRESS CF LA^~ t-RIHT CHARACTER 



;0 TC NrX" 



LOAD IF. "- ■♦'■.■ 


L CATION 




FLACE A" := - - - * 


~\?, TRACK 


IS LIST 


T'JPN OF" ALL =" : 


• JITS 




INCREMENT P "-ISTEF 


Y 'WO. 




GO STEP PE;*JH>TEL 


»tr?:>s 





LOAD Xf<2 P9CR SAVE LOCATION 
TORS OFF ALL SECTOR LITS 

DOES SEEK ADDRESS EQOAL AS 

ADDRESS FROM THE LIST? 
IF NO, GO PRIST ERROR 
INCREASE POINTER BT T¥0 

YES, PRIST ERR05 

FLAGS 

LENGTH 

ADDRESS OF LAST PRIST CHARACTER 

IDENTIFICATION 

TO DCP HALT 

HALT ID 

TO TEST FOR ENTRIES 

HAVE 8 RETRIES l'EEN BADE? 
JDHP TO PRINT IF YES 
DECREMENT RETFY COONTES 
REPEAT READ ID 

TO PRINT ERROR OK READ ID 
FLAGS 
LENGTH 

ADDRESS OF LAST PRINT CHARACTER. 
HESSAGE ID 
TO DCP HALT 
HALT ID 
TO TEST FOH ENTRIES 



DATE 
EC HO. 



06APR70 
57 1516 



22BAY70 
571513 



01A0G70 
571531 



01OCT70 
571540 



PROG ID 
PAGE 



0FF5-3 
3 



IBB H»ISTES»BCE DIAGNOSTIC ?tfOGRAB 



PART SO. 
PAGE 



SI 2 965 8 
3A 



FF53 



C E 



DISK 



BBI LOC OEJECT CODE 



INITIALIZER 



Z.CDB STST SOURCE ST ATE.". EX ? 



0CE9 02 
OCEA 00 
OCEB FFFF 



OCEC CO 87 0F31 



0CE9 
OCEA 
OCEC 



0CF1 3C 00 1772 
0CF5 OC 00 1773 177C 
OCEB 3C 00 1774 



OCFF 3C 55 177» 

0D03 3C 17 1775 

0D07 3B 7F 1774 

ODOB 3C 00 i77E 

ODOF 3C 08 OF 3 

0D13 CO 8"* 166D 
0D17 00 0D17 

0D18 00 0D19 

0D19 1772 0D1A 

0D1B CO 87 14EC 

0D1F 38 40 020A 

0D23 F2 10 44 

0D26 3C 08 1075 

0D2» CO 87 166D 

0D2E 01 0D2E 

0D2F 01 0D2? 

0D30 1776 0D31 

0D32 CO 87 0CC4 

0D36 OD 00 1773 1777 
0D3C F2 81 27 

0D3F 39 03 1776 
0D43 F2 10 03 
0D46 »2 87 ID 

0D49 3D 00 0F3 
0D4D F2 81 5C 

0D50 CO 87 166D 

0054 00 0D54 

0D55 01 0D55 

0D56 1772 0057 

0D58 CO 87 0D5C 

0D5C OF 00 0F30 176D 

0D62 CO 87 0D13 

0D66 3C 00 1075 

0D6A CO 87 1*60 
0D6E 02 0D6E 

0D6F 01 0D6F 

0D70 1772 0D71 

0D72 CO 87 ODCO 



295 

296 
29 -r 

29 « 

299 

300 

301 

302 

303 

304 

305 

306 

307 

303 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

3 50 

351 

352 

353 

354 

355 

3 56 

357 

358 

35? 

3 60 

361 

362 



» 

* THIS FOUTISE IS USED TO INITIALIZE THE CE TRACK ONLY. 

* SELECTION 0? THIS FO'JTTSE IS 7IA OPTICS F202- 



»»«»**»»*»•»**»»**-♦***»**•♦»*****•»*»******♦*»***•***********•******* 

» ROUTINE PREFIX 

RTS02 DC XL1'02' RODTIHE SUBBER 

EC XLI'OO' SO INTERVENTION REQUIRED 

DC XL2'FFFF" LAST POOTISE 

* * 
»****«*»»»»»««»*»•***♦•»**#****»•«♦***»»**•*»**»•**»»***•******»•*•**** 
XXX :? IHITAA SETUP FOR ISIT I ALIZ A? IOS 
* 

* SET IXI7IAL VALUES PRIOR TO 3EGISSISG DISK INITIALIZATION 



"VI WRTDFC.JO SET 

BYC H3TDFC+1 (1) , TRACK* SET 

!!VI BRTDFC+2,00 SET 



FLAG 3YTE TO CO. 

FOR CORRECT CYCLISDER SUBBER 

HEAD AND SECTOR TO 00. 



TEST CE TRACK WITH DATA PATTERS 55 



PPCC1 

ISI111 



7 N IT 1 4 



ISIT22 



BVI 
BVI 
SB? 
"VI 
BVI 

H 
DC 

EC 
DC 

E 

TBN 

JT 

BVI 

B 

DC 

DC 

DC 

E 

CLC 

JE 

TBF 

JT 
J 

CLI 
JE 

B 

DC 
DC 
EC 
B 

SLC 

B 

HVI 

B 

EC 

DC 

DC 

E 



work.x'SS' 

WHTDFC+3,23 
WHTDFC*2,X'7F« 
EHRFLG,0 
RETRY. 8 

STRTIO 
XLI'OO' 
XLI'OO' 
AL2 vHSTDFCI 
SEEKER 

SECTSS.X' 40' 

INIT22 

DISKTP,X'08' 

STRTIO 

XLT01 • 

XLI'01' 

AL2{RDDFC) 

READER 



WBTDFC+1 (1) , 
INIT22-4 

RDDFC,X'03' 

♦ ♦6 
ISIT22-4 

RETRY, 
IDRR 

STRTIO 
XL TO' 
XLI'1' 
AL2 ("STDFC) 

* + 4 



RETRY (1) ,ONE 

INIT14 

DISKTP.O 

STRTIO 

XLI'02' 

XL1'01' 

i L2 (WRTDFC) 

STEPCE 



RDEFC*1 



SET DATA PATTERS IS WRITE AREA 

SET HO. CF SECTORS TO EQUAL 24 

SET SECTOR 3ITS 70 ZERO 

ZERO FLAG 

SET SEEK RETRY CCUS7EP 

TO I/O SG3RO0TISE TO SEEK 

FUNCTION CODE 

COSTROL CODE 

COHTFOL FIELC ADDRESS 

ERROR RETURN 



TEST FO? RUNNINb 
JUSP IF YES 
SET FOR FIXED 
TO READ ID 
FUNCTION CODE, 
CONTROL CODE, 
CONTBOL FIELD 
ERROR RETURN 



OS FIXED 



DISK 

(READ) 
(ID) 

ADDRESS 



COMPARE ICTUAL ADDRESS WITH EXPECTED 
JUBP IF SEEKED TO CORRECT ADDRESS 

CHECK FOR BOTH FLAGS OFF 
IF OFF, RETRY COHHAND 
OTHERWISE CONTINUE 

CHEC% RETRY COUNTER 

JUF.P IF 8 RETRIES HAVE BEEN BADE 

TO RECALI6BATI 
FUNCTION CODE, (CONTROL) 
CONTROL CODE, (RECALIBRATE) 
CONTROL FIELD ADDRESS 



DECREBENT RETRY COUNTER 

GO S EEK AGAIN 

SET FOR REBOVABLE 

TO I/O SUBROUTINE TO WRITE ID. 

FUNCTION CODE 



CONTROL CODE 
CONTROL FIELD 
ERROR RETURN, 



ADDRESS 



ATE 
C «C. 



06APR70 
571516 



22HAY70 
571513 



01 AUG70 
571531 



10CT70 
571540 



PROG ID 
PAGE 



0FF5-3 
3A 



IBB "AISTESANCE DIAGNOSTIC PROGRA" 



FP53 CE DISK INITIALIZER 

AEDH STBT SOURCE STATEHENT 



EBB LOC OBJECT CODE 

OD76 3B 7F 1771* 

0D7A 3C 17 1775 

0D7E CO 87 166D 

0D92 01 

0D33 03 

0D84 1772 

0D86 CO 87 ODDU 



OD8A 


3D 00 


177A 


00 9S 


?2 01 


13 


3D91 


CO 87 


021 A 


0D9 5 


J6 




0D96 


13 




0D97 


1797 




0D99 


CO 87 


0222 


0E9E 


A0F8 




0D9P 


CO 87 


022A 


0DA3 


CO 




0DA4 


3C 00 


177A 


CTA6 


CO 87 


0D03 


OEAC 


CO 87 


021A 


onso 


C6 




0D91 


31 




0D32 


03 62 




0DS4 


A0F9 





0DB6 CO 87 022 2 

ODEA A0F9 

ODBC CO 87 OCED 



OLCO CO 87 021A 

0DC4 C6 

0DC5 2D 

ODCfc 0"E7 

0DC8 A09C 

ODCA CO 87 0222 

ODCE A09C 

ODDO CO 87 OCED 



0DD4 
ODDS 
ODDC 
ODDD 
0DE1 
ODZQ 
0DE8 
ODEB 
ODEF 
0DF3 
0DF4 
0DF5 
0EF7 
ODFB 
OE01 
OE04 
0E08 
OEOC 



08 
87 

28 
10 
00 
01 
OA 
87 



in 

CO 

02 

39 

F2 

3D 

F2 

3C 

CO 

01 

03 

1772 

CO 87 

OF 

F2 

CO 

CO 

02 



363 
364 

365 
0D82 366 
0.18 3 367 
0l-«5 368 

3 69 

370 

371 * 

372 

373 CLI 

370 JSE 

375 B 

0D95 376 EC 

0D96 377 DC 

0E99 378 CC 

379 

380 E 

0D9E 381 DC 

-S2 E 

0DA3 383 DC 

3.34 

3^5 STEPC3 HVI 

366 B 

367 IDRF 3 
ODBO 38 9 DC 
0DB1 389 DC 
0D33 390 DC 
0EB5 3S1 DC 

3 92 

393 E 

DEB 394 DC 

395 E 
396 

3 96 
397 STEPCE B 

0DC4 3 98 EC 

0DC5 399 DC 

0DC7 400 DC 

0DC9 401 DC 

4^2 

403 E 

ODCF 404 DC 

405 E 

4 06 
406 

407 * 

408 * 
4 09 * 
410 

0E2C 411 STE^CI ST 

1657 412 B 

ODDC 413 DC 

176A 414 TBP 

45 415 JT 

1271 4 16 CLI 

04 417 JNE 

1271 418 HVI 

166D 419 SI01 B 

0DF3 420 DC 

0DF4 421 DC 

0DF6 422 DC 

0E08 423 B 

00 1271 176D 424 SI02 SIC 

91 25 425 JZ 

87 ODEF 4 26 B 

87 1657 427 SI03 E 

OEOC 428 DC 



SBF 


BBTDPC*2,I'7F- 


BVI 


rfRTDPC+3,23 


3 


STBTIO 


DC 


XL TOT 


c: 


ILV03' 


DC 


AL2(HBTDPa 


B 


STEPC1 



PAHT 10. 
PAGE 



SET SSCTOB BITS TO ZEBO 

I0BSA1. BFJTUBl, SET TO TERI7T. 

TO I/O SOBBOUTINE TO VERIFY. 

FUNCTION CODE 

COBTBOL CODE 

CONTROL FIELD ADDRESS 

EHRCB BETOBN 



5129658 

4 



TTST CE TRACK WITH DATA PATT2BH 00. 



WORK, 00 
STEPC3 
PRINT 
XLT 06" 
ILT27* 
AL2(Hi G01) 

HALT 

XL2«A0F9' 
LOAD 
XL1 'OO' 

aOPK.X^OO 1 

IS IT* 3 

PRIST 

XLTC6' 

ILT49' 

AL2(IDEFHG) 

XL2«A0FS • 

HALT 

XL2 , AOF9« 

XXX 



PRIST 

XLTC6' 

ILT45' 

AL2(HSG«ID) 

XL2'A09C 

HALT 

XL2'A09C« 

XXX 



HAVE BOTH DATA PATTiBNS BEES USED? 
JOHP IF HO 
P3INT 
INITIALIZATION 
T3 SOB 
COMPLETE 

HALT OF 
-F9- 
LOAD KEIT SECTION 



CHARGE PATTE3N 

TO PRINT READ ID ERPOR 

FUGS 

LENGTH 

BESSAJE ADDRESS 

B5SSA3E ID 

TO DCP ERROR HALT 
HALT ID 
RESTART ROUTINE 



PRINT 'ERROR 
OCCU£R 3D 

HHILE EOING 

HRITE ID COSHAND' 



HALT OF 
-9C- 

RESTART ROUTINE 



THIS SUBROUTINE HILL EETHY A VERIFY 
UP TO A MAXIHUB OP TEN TI3ES BEFORE 
PRINTING AN ERROR HESSA3E 



ENDSTP+3, ARR 

SENSE 

XLT02' 

STATUS-1,X'28' 

ENDSTP 

EBCONTfX'OO' 

*+7 

ERCONT, 10 

STRTIO 

XLI'OT 

XLT03' 

AL2(WBTDFC) 

SI03 

ERCONT (1 ) ,ONE 

ENDSTP 

SI01 

SENSE 

XLT02' 



SAVE RETURN ADD3ESS 
SAVE 

STATUS 
CHECK FOR HISSING ADDRESS MARKSR 

OR DATA CHECK 
CHECK COUNTER 



TO I/O SUBROUTINE TO VERIFY 

FUNCTION CODE 

CONTROL CODE 

CONTROL FIELD ADDRESS 

ERROR RETURN 

DECREBENT COUNTER 

CONTINUE 

TO VERIFY 
SAVE 

STATUS 



DATE 
EC ao. 



06APR70 
5715-16 



22HAY70 
571513 



01AUG70 
571531 



01OCT70 
571540 



PROG ID 
PAGE 



0PP5-3 
4 



IBB HAIBTE1ABCF. 1I»G*0STIC PBOGBAB 



PART BO- 
PAGE 



5129658 
4A 



FF53 



C E 



DISK 



EBB LOC OBJECT CODE 



INITIALIZER 



ADDB STMT SOCRC5 STATEMENT 



OEOD 
OE11 
0E15 
0E19 
ZZ i» 
OE1B 
OE1E 

0E1F 
OE23 
0E2? 
0E29 



28 
10 
«>7 



39 

CO 

CO 

C6 

40 

0??? 

AOFA 

CO 87 
AOFA 
3C 00 
CO 37 



171A 

CDF3 
021 A 



0222 

1271 

COCO 



0E2D 
0E?1 
0E35 

0537 

0E3F 

0E47 

0E4F 

0E57 

0E5F 

0E61 

0E69 

CE71 

0E79 

058 1 

0E89 

0583 

0E9 3 

0E9B 

0EA3 

OEAB 

0EB3 

OEBB 

0EC3 

OECE 

0ED3 

OEDB 

0EE3 

0EE8 

OEFO 

0EF8 

OFOO 

OF08 

0F10 

OF 18 

0F20 

0F2 8 

0F2A 

0F2C 

0F2E 

0F3u 



4B' : Au94S 
47C6G504 
05 35 



0519 
0E1A 
0E1C 
0E15 



0524 



0E2D 
0530 
053a 
0536 



C5D9D9D6D94C56C3 0560 
C9C3C540D9C5C1C4 
C9D5C740C9C46B4 
E7E9E6C7D9C1D440 
E3C5D9E4C9D5C1E3 
C5C4 

^3C8C540C9C440D9 CE3A 
:5C1C4«0C4E6C552 
10D5D6E340C5D8E4 
31C340E3C8C540C9 
C4 40C5E7D7C5C3E3 
C5C4 

C5D9D9D6D940C9D5 OEBA 
40C1D3E3C5D9E5C1 
E3C540E3D9C1C3D2 
40C1E2F.2C9C7D5D4 
C5D5E36B4CD7C7D4 
4840E3C5D9D44B40 
C5D9D9D6D940D6C3 0FE7 
C3F.4E9E9C5C440E6 
C8C9D3C54 0C4D6C9 
D5C740C140E6D9C9 
E3C540C9C440C3D6 
E4E4C1D5C4 

C5D9D9D6D940D6C3 0F07 
C3E4D9D9C5C44CF.6 
C8C9D3C540C4.'6C9 
E5C740C140E5C5D9 
C9C6E840C4C1E3C1 0F27 
40C3D6D4E4C1D5C4 
40D6D540E3C8C540 
C3C5U053D9C1C3P2 
COOO 



OOOO 
17F5 
0002 

00 



0F29 
0F29 
0F2D 
0F2F 
0F3O 



0F31 
OF 3 5 
0T39 
OF 3D 
0F41 
0F45 



ATE 
C HO. 



34 
3C 
3C 
3C 
3D 
F2 



08 
00 
CO 
00 
C1 
81 



1074 
1761 
020A 
176E 
0A03 
11 



5SDSTP 



:3LSEV 



T5L5SE 



06APB70 
571516 



22HA»70 
571513 



4?» 

430 

431 

432 

433 

434 

435 

4 36 

4 37 

438 

4 39 

440 

441 

442 

443 

444 

445 

446 

447 

4 47 

447 

447 

447 

4 47 

443 

448 

443 

448 

443 

449 

449 

44? 

449 

449 

449 

449 

450 

450 

450 

450 

450 

450 

451 

451 

451 

451 

452 

452 

452 

452 

453 

454 

455 

456 

457 

458 

458 

459 

460 

451 

462 

463 

46'i 

465 

466 

46 

468 

469 



01AOG70 
571531 



T3F 

BT 

3 

DC 
DC 
EC 
DC 

E 

DC 
HVI 
3 

EQCJ 
DC 
DC 
EC 



5RFCR9 DC 



:BFCB3 DC 



ERSOR4 DC 



BSGSID 



DC 



SSGV5F LC 



ALTLST 

LSTSAV 

LSTADR 

TWO 

RETRY 



DC 

DC 

cc 

DC 
DC 



STATUS-1 ,X'29< 

SI02 

PRINT 

XL VC6' 

I LI '64' 

AL2(HSG7RF) 

XL2'A0FA' 

HALT 

XL2'i0FA' 

ERCOST.X'OO' 

*-* 



XL4' 4B4A4949" 
XL4'47060504 ■ 
AL2{») 



CHECK FOR BISSISG ADDRESS BARKER 

OR *>ATA CHECK 
PR! .7 'ERROR 
r .CCU?F5D WHILE 
DCISG A VEBIFT 
OM THE CE TRACK' 



HALT OF 

-FA- 
35S5T COUNT: 
SETUl'S 



CL42'5R?.OH SMILE READING ID, PSTGRA" T5=»ISAT5D' 



CL42'TH5 ID REAE 3053 MOT EQUAL TS t ID 5XP5CT5! 



CL43' ERROR IS ALTERNATE TRACK ASSIGSSE: 



PGB. TERK. 



CL45' ERROR OCC'JFRED WHILE DOING A WRITE ID COKHASD' 



CL32 5 ERROR OCCURRED WHILE DOING A VER' 



CL32'IFY DATA CORA AND ON THE CE TRACK' 



XL2'0' 
XL2'00' 
AL2 (LIST) 
XL2*02' 
XLV 0' 



* 
* 
* 
* 

INITAA 



THIS SUBROUTINE HILL PRINT INSTRUCTIONS 
NECESSARY TO SELECT THi DESIRED DISK AND 
SPINDLE THAT IS TO P J INITIALIZED. 



ST 

NVI 

NVI 

BVI 

CLT 

JE 



APR 



ENDSETO 
FRSTPS,0 
SECTSW.O 
COUNT, 
CRTNO,X'01 • 
CONTUE 



SAVE RETURN ADDRESS 
IN IT I 'LIZE SWITCH 
ZERO SWITCH AREA 
ZERO COUNTER 
CHECK FOB ROUTINE 1 
JtJBP IF CABE ?BOB 



01OCT70 
571540 



ROUTINE 1 




PROG ID 


0FF5-3 


PAGE 


4A 



IBB HAUTENA1ICE DIAGNOSTIC PROGHAS 



PAHT KG. 
PAGE 



512J658 

5 



ff53 



c E 



DISK 



ERR LOC OBJECT CODE 



IS ITIALIZER 



ADDS STHT SOOSC? SfATERENT 



0F48 


3C 


4E 


0F6C 






470 




HVI 


HOD 1,7 8 


OP»C 


OC 


01 


103D 


122: 




471 




avc 


HOD5 (2) ,HOD3 


0P52 


3C 


ttl 


1035 






472 




BY I 


HOD4,65 


0F56 


F2 


37 


OF 






473 




J 


• ♦ 17 


OF59 


3C 


31 


0F6C 






4 74 


COhTOE 


HVI 


H0D1.49 


0F5D 


OC 


01 


103D 


1220 




475 




HVC 


HCD5 (2) , HOD2 


OF63 


3C 


38 


1039 






4 76 




HVI 


H0D4,56 


0F67 


CO 


87 


021 A 






477 




o 


PHUT 


0F6B 


i«2 








?F63 


473 




DC 


XLT42 1 


0P6C 


CO 








0F6C 


479 


BO El 


DC 


ILI'OO" 


0F6C 


10C3 






0F6E 


490 




DC 


AL2{STRTHS; 


0F6F 


AOFO 






0F7 


481 




DC 


XL2» AOFO* 


0F71 


CC 


B7 


C21 A 






492 




9 


PRINT 


0F75 


01 








0F75 


493 




DC 


UVOT 


0F76 


27 








0F76 


494 




DC 


IL1' 39' 


0F77 


10FC 






0F78 


495 




DC 


AL2 (SODISK) 


0F79 


CO 


97 


02 1 A 






4 96 




p 


PRIST 


0F7E 


06 








0F7D 


497 




CC 


XL1'06' 


0F7E 


24 








0F7E 


463 




DC 


ILT 36« 


0F7P 


1133 






0F9O 


499 




JC 


AL2(SOSPHD) 


OF9 1 


CO 


97 


0222 






490 




B 


HALT 


OF95 


AOFO 






0F36 


491 




DC 


IL2' A0F0> 














492 








0F37 


CO 


P7 


02 12 






493 


SETJSK 


g 


TEST 


0F9E 


?3 


80 


020A 






494 




TBS 


SECTSH,X * 50' 


OF9F 


F2 


10 


:b 






495 




•7T 


SETRHV 


OF92 


33 


40 


020? 






496 




T3N 


SECTSH,I'4 0' 


0F96 


F2 


10 


21 






497 




jT 


SETFXT 


0F99 


CO 


87 


02'. A 






U98 




5 


PRIST 


0?9D 


C6 








0F9D 


U99 




DC 


XL1 'C6' 


0F9E 


39 








0F9S 


500 




nc 


ILT 57' 


OF9F 


10FC 






OFAO 


501 




re 


AL2(SO r USK) 


OFA1 


A0F1 






0FA2 


502 




DC 


XL2' A0F1* 


0FA3 


CO 


8 7 


0222 






503 




o 


HALT 


0FA7 


A0>1 






0FA8 


504 




DC 


XL2«A0F1 * 


0FA9 


CO 


■J? 


0F8T 






505 
5 06 




g 


SETDSK 


OFAT 


ic 


UO 


1C75 






507 


SETPBV 


HVI 


DISKTP,00 


i'PBI 


OC 


OD 


116P 


1 ,82 




508 




HVC 


DSKPRT (1 4) ,HHDISK 


0*37 


F2 


87 


CA 






C jCl 




J 


SETSPL 


0V3A 


3C 


Of.' 


■"375 






51: 


IETF XT 


nvi 


DI S-'TP, X • 08' 


OF. IE 


OC 


OD 


1168 


1190 




511 
512 




HVC 


DSKPPT (1 4) ,FXDISK 


OFC^ 


38 


2) 


02 A 






513 


SETSPL 


TBN 


SECTS-*,*' 20' 


0FC8 


F2 


1 ; 


)a 






514 




JT 


SETA 


OFCB 


38 


13 


3 20 A 






515 




TBN 


SECTS fc',*' 10 ' 


OFCF 


i?. 


n 


21 






516 




JT 


SETB 


OFD2 


CO 


S7 


02" S 






517 




3 


PRINT 


0FD6 


ct. 








0FD6 


513 




DC 


XLVC6 ' 


0FD7 


3 7 








f\pnl 


519 




DC 


ILl' 55' 


0FD8 


113^ 






OFD« 


520 




D^ 


AL2 (SOSPND) 


OFDS 


A0F2 






OFDB 


521 




EC 


XL2' A0P2' 


OPDC 


CO 


ev 


02 2 2 






522 




E 


HAL. 


OFEO 


A0F2 






0FE1 


523 




DC 


XL2" aof: • 


0FE2 


CO 


87 


•>: *~ 






524 
525 




P 


c.:~dsk 


0FE6 


r* 


CO 


16AC 


1761 




526 


SETA 


HZZ 


LDFCR+1, SPNDLA 


OFEC 


3C 


F1 


115B 






527 




HVI 


RUNPRT-2 ,C1 • 


OFFO 


F2 


87 


OA 






526 




J 


SETBTH 


0FF3 


08 


00 


16AC 


1765 




529 


SETB 


HZZ 


LDFCR+1 ,SPNDLB 


0FF9 


3" 


F2 


115B 






530 
531 




nvi 


RUNPRT-2, C'2 r 


OFFD 


C9 


00 


16E0 


16AC 




532 


SETBTH 


HZZ 


LDFDR+1, LDFCR+1 


1003 


08 


00 


16B4 


16AC 




53 3 




HZZ 


SIO+1 , LDFCR+1 


1009 


08 


00 


16B7 


16 AC 




534 




HZZ 


1IAITH, LDFCR + 1 


100F 


08 


00 


16EU 


16AC 




535 




HZZ 


TSTERR+1 , LDFCR+1 


1015 


08 


00 


65 


16AC 




036 




HZZ 


SNS+1, LDFCR+1 


:01B 


08 


00 


1 70F 


16 AC 




537 




HZZ 


RLDFCR+1 , LDFCR + 1 


DATE 


06APR70 


22HAY70 


01AUG70 


01OCT7 


I EC NO. 


57 1516 


571513 


571531 


571540 



BODIFT 
FOR 
ROUTINE 
TBO 
HODIFY 
FOP 
3O0TINE OHE 
TO P.<IST BEFORE HALT 
FLAGS 
LENGTH 
BESS AGE 
BESSAGS 
PRIST 
DISK 
SELEO 



ADDRESS 

ID 



ICS 



PRINT 
DRIVE 
SELECTION 

TO DCP HALT 
HALT ID 

50 READ CONSOLE SWITCHES 

TEST FOR 9EHOVABLE DISK SELECT 

YES, SET TO RON REHOVABLE DISK 

TEST FOS FIXED DISK SELECT 

YES, SET TO RON FIXED DISK 

NO DISK SELECT 

FUGS 

LENGTH 

ADDRESS OF LAST PRINT CHARACTER 

BESSAGE IDENTIFICATION 

TO DCP HALT 

HALT ID 

LOOP TO ENTER AGAIN 

SET TO RON* ON REHOVABLE DISK 

SET PRINT FIELD FOR REHOVABLE DISK 

PROCEED 

SET TO RON ON FIXED DISK 

SET PRINT FIELD FOP FIXED DISK 

IS SWITCH 12 ON ? 

YES, SFT TO RU« SPINDLE A 

IS SHITCH 13 ON ? 

YES, SET TO BON SPINDLE P. 

NO SPINDLE SELECT 

FLAGS 

LENGTH 

ADDRESS OF LAST PRINT CHARACTER 

BESSAGE IDENTIFICATION 

TO DCP HALT 

HALT ID 

LOOP TO ENTER AGAIN 

SET TO RON ON SPINDLE A. 

SET PRINT FIELD FOR DISK DRIVE 1 

PROCEED 

SET FOR SPINDLE B. 

SET PRINT FIELD FOR DISK DRIVE 2 

SET FOR CURRENT SPINDLE 

SET FOR CURRENT SPINDLE 

SET POR CURRENT SPINDLE 

SET FOR CURRENT SPINDLE 

SET FOR CURRENT SPINDLE 

SET FOR CURRENT SPINDLE 



PROG ID 
PAGE 



0PF5-3 
5 



IBB aAINTEiJANCF DIAGNOSTIC PBOGRAH 



PART SO. 
PAGE 



5129658 
5A 



FM3 



C E 



DISK 



INITIALIZER 



EBB tOC OBJECT CODE 



AEDR STBT SOGFCE STATESEST 



1021 08 00 1713 16AC 



1027 


3C 06 


1044 


102E 


39 08 


O20A 


102F 


F2 10 


C4 


1032 


3C 02 


1044 


1036 


CO 87 


021A 


103A 


42 




103B 


00 




103C 


cooc 




1031 


A0F3 




1040 


CO S7 


021» 


1044 


CO 




1015 


3E 




10*6 


11 CE 




1048 


39 C8 


020A 


104C 


F2 "0 


f)R 


104? 


CO \1 


C21A 


1053 


06 




1054 


50 




1055 


121E 




1057 


CO 87 


02;. 2 


1055 


A0F3 





1051 CO 87 1657 

1061 02 

1062 3C CB 177C 
1066 33 08 1763 
106A F2 90 C4 
106D 3C 67 177C 
1071 CO 37 OOOO 



103* 
1033 
103D 
103F 

104 4 
10>5 



1053 
105 4 
1056 

105C 



1061 



1075 

1076 

107E 

1086 

108E 

1093 

109B 

10A3 

10AB 

10E^ 

10F8 

10c i 

10C4 

lOCC 

10D4 

10DC 

10E4 

10EC 

10F4 

10F8 

10FD 

1105 

1'JOD 

1116 

11 1D 

1125 

112C 

1134 

113C 

1144 

114C 

1154 

115C 

115E 

1 166 

116C 



00 



1075 
10S2 



C6D6D9 4GC3C5 4GF3 
D9C1C3D240C9D5C9 
E3C9C1C3C9t9C1E3 
C9D6D5fcS4 

E2C5E3u0?:2E6C9E3 1 OC 3 
C3C9C5E240E3D6U0 

C9E2D740E2E4D9C6 

C1C3C5 40C1D5CUUO 

C4C9C'5FSC540O5D'j 

4B 

D5D64OC4C9E2D2U0 l' lrl7 

E2C5C3C5C3E3C5C4 

6B40C5D5E 3CSD9UG 

F1F040C6D6D940D9 

C5D4D6E5C1C2P3rs 

6B40D6D940F1F140 

C6D6D940 

C6C*E7C C ,C4 10FC 

D5D640C4D9C9E5C5 11 2B 

40B2C5C3C5C3E3C5 

C46B40C5D5E3C5i>9 

40F1F240C6D6D94G 

C4D9OE5C540F" l 6B 

4OF1F340C6D6D9 

40C4D9C9E5C540F2 

D7D9D6C7D9C1D440 

E6C9D3D340P5D6E6 

40C9D5C9E3C9C1D3 

C9E9C540C4C9E2D2 

40t4i)9C9E5C5'*GE7 

6BI.0 

40 40404040404040 

MP4040404040 

60C3C540E3D9C1C3 1174 



1133 
115D 



116B 



538 
539 

540 

5<*1 

542 

= 4"> 

544 

5*i 

546 

547 

5 US 

5w9 

55 3 

551 

552 

553 

554 

555 

555 

5 57 

55 3 

559 

560 

561 

562 

563 

56U 

565 

566 

567 

568 

568 

569 

570 

570 

570 

570 

571 

571 

571 

571 

571 

571 

571 

572 

572 

572 

572 

57 2 

572 

572 

57 3 

574 

574 

b74 

574 

574 

57U 

5 7 r , 

576 

S 7f. 

576 
576 
576 
576 
577 
577 
578 



S0D4 
BOC5 



??CE6 



EN - 1 SET 



HZZ 
RVI 
TBF 
JT 

"VI 

c 

DC 

DC 

DC 

DC 

E 

CC 

DC 

TBF 
JT 

g 

DC 
CC 
DC 
n 

DC 

E 

DC 

HVI 

TBN 

JF 

"VI 

3 



DISKT? DC 
DC 



STRTSS DC 



~C 



SO"ISK DC 
CC 



n^spnd dc 
rt1nprt dc 



DJ-KPRT DC 
CE1HK DC 



PSIOH ,1DFCR*1 

BOD6. X'06' 

SWITCH. X'03 • 

»+7 

HOD6 # X'02« 

PRIST 

XL1' >.2> 

If. '00' 

AL2 (*-*) 

XL2*AOF3' 

PRINT 

XLI'OO' 

in'62 • 

AL2(«!SGCAT) 

SHITCH,X«09' 

* + 11 

PRINT 

XL1 '06' 

IL1' 80' 

AL2(BSGALL) 

HALT 

XL2' A0F3' 

SENSE 

X11' 02' 

TPACK#,20i 

STATUS, X'G8' 

ENDSET 

TRACK*. 103 

*-» 



SET FOR CURRENT SPINDLE 

IF SSH 14 IS ON, 
SETOP FOR EXTRA 
SARNISG MESSAGE 
TO PPINTCOT OPERATOR SETOP 
FLAGS 
LENGTH 
ADDRESS OF LAST PRINT CHARACTER 

PRINT 
CAUTION 
SESS AGE 

IF SSH 14 
IS ON, 
P3INT 'ALL 
v TRnCKS 

WILL BE 
INITIALIZED' 
TO DCP HALT 
HALT ID 

TO SENSE SUBROUTINE 

ASK FOR DEVICE STATUS BYTES 5 1, 

SET FOR FULL CAPACITY DISK 

TEST FOR 1/2 CAPACITY DISK 

IF OFF GC TO END 

SET FOR 1/2 CAPACITY DISK 

RETURN TC ROUTINE 



XLT 00' 

CL29 'FOR 



CE TRACK INITIALIZATION, 



CL49*SET SWITCHES TO SELECT DISK SURFACE AND DRIVE NO. 



CL52'NO DISK SELECTED, ENTEP 10 FOR F" MOVABLE, CR 11 FOR 



CL5'FIXED» 

CL47'NO DRIVE SELECTED, ENiER 



12 FOR DRIVE 1, 13 FOR' 



CLOR' DPI 2' 

CL42 • PROtj,! A.l HILL SOW INITIALIZE DISK DRIVE X, 



CLT*' 

CL9'-CE TRACK' 



I 



ATE 
IC NO. 



06APR70 
57 1516 



22BAY70 
571513 



01 A0G70 
571531 



1OCT7O 
571540 



PROG ID 
PAGE 



0FF5-3 
5A 



IBB 8AINTENANCE DIAGNOSTIC PROGRAM 



PAET HO. 
PAGE 



5129658 
10 



*F53 



C E 



DISK 



ERR LOC OBJECT CODE 



INITIALIZER 



.\DDR STNT SOURCE STATEMENT 



17E6 CO 87 0000 

17EA n 

17EB F1F2F3F4F5F6F7F8 17F4 

17F3 F9F0 



17F5 





1031 


TIXF. 


B 


*-* 


EXIT 






17EA 


1032 


DECODE 


DC 


CL 1 • 1 * 








17F4 


1033 
1033 


ONITS 


DC 


CL10M234567890' 








17F5 


103U 


LIST 


EQU 


* 








181C 


1035 




DS 


CL40 








006F 


1036 


HO 


EQU 


X«6F« 


HALT 


DISPLAY 





0003 


1037 


HI 


EQU 


X'03« 


HALT 


DISPLAY 


1 


0076 


1038 


H2 


EQU 


X'76» 


HALT 


DISPLAY 


2 


0057 


1039 


H3 


EQU 


X'57« 


HALT 


DISPLAY 


3 


001B 


1040 


H4 


EQU 


X' 1B> 


HALT 


DISPLAY 


4 


005C 


1041 


H5 


EQU 


X«5C' 


HALT 


DISPLAY 


5 


007D 


1042 


H6 


EQU 


X'7D' 


HALT 


DISPLAY 


6 


0007 


1043 


H7 


EQU 


07 








007F 


1044 


H8 


EQU 


X'7F« 


HALT 


DISPLAY 


8 


005F 


1045 


H9 


EQU 


X«5F' 


HALT 


DISPLAY 


9 


003F 


1046 


HA 


EQU 


X»3F' 


HALT 


DISPLAY 


A 


0079 


1047 


HB 


EQU 


X'79» 


HALT 


DISPLAY 


B 


C06C 


1048 


HC 


EQU 


T»5C 


HALT 


DISPLAY 


C 


0073 


1049 


HD 


EQU 


X'73» 


HALT 


DISPLAY 


D 


007C 


1050 


HE 


EQU 


X'7C' 


HALT 


DISPLAY 


E 


003C 


1051 


HF 


EQU 


X' 3C« 


HALT 


DISPLAY 


F 


003B 


1052 


HH 


EQU 


X»3B« 


HALT 


DIS PL AY 


H 


0001 


1053 


XR1 


EQU 


1 








0002 


1054 


XR2 


EQU 


2 








0008 


1055 


AR:i 


EQU 


08 








020A 


1056 


SECTSW 


EQU 


X^OA' 








020A 


1057 


SWITCH 


EQU 


X'20A* 








0212 


1058 


TEST 


EQU 


X'212' 








0216 


1059 


LINK 


EQU 


X«216' 








021A 


1060 


PRINT 


EQU 


X'21A« 








022A 


1061 


LOAD 


EQU 


X'22A' 








021E 


1062 


UNPACK 


EQU 


X'21E' 








0222 


1063 


HALT 


EQU 


X'222« 








OA03 


1064 


CR1NO 


EQU 


X«OA03« 








FFFF 


1065 




END 











DATE 
■C *0. 



06APR70 
571515 



22HAY70 
571513 



01AUG70 
571531 



010CT70 
571540 
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IBH HAIHTENAHCE DIAGNOSTIC PBOGBAH 



PABT HO. 
PACE 



5129658 
10A 



?F53 CE DISK INITIALIZER 

CBOSS-REFERENCE 



STHBOL T LEN VALUE 


DEFN 


REFERENCES 








ADHEXT A 004 175A 


0977 


0946* 0973 








ALTLST A 002 0F29 


0453 


0183* 0255 


0270* 






ALTPRT A 045 1497 


0770 


0718 0722* 


0724* 


07 34 




ALTSAV A 004 149F 


0772 


0647* 0672 


0690 


0717 


0720 0749 


ABB C 001 0008 


1055 


0411 046 4 


0592 


0632 


0807 0873 






1018 101S 


1020* 


1021 




BOFFR1 A 002 1771 


0996 


0634* 0635 


0638 


0640* 




B0FFR2 A 002 14A4 


0774 


0638 








BOSI C 001 0OA2 


0984 


0927 








CETRK A 009 1174 


0578 


0586 








CHRPRT A 004 1541 


0836 


0830 








CHKBTT A 001 15D1 


0892 


0808* 0829 


0831* 


0856* 


0861 


CKCIL A 005 0B12 


0145 


0151 








CKCTI.I A 005 0C46 


0239 


0245 








CONTfE A 04 0F59 


0474 


0469 








COUNT A 001 176E 


0994 


0125 0127* 


0128* 


0467* 




CBTIO C 001 OA03 


1064 


0469 0969 








CTLBEG C 001 00A6 


0986 


0924* 0956* 








CTD A 004 1799 


1015 


0706 0716 


0787 






CTITBL A 001 0B83 


0170 


0144 








DECGAH A 006 17D3 


1027 


1030 








DECOHE A 001 17EA 


1032 


1029 








DEFECT A 037 146A 


0769 


07 08 0712* 


0714* 


0729 


0789 0791* 


DEIAT1 A 004 16D2 


0934 


09 37 








DFCR A 02 1767 


0990 


0913* 0924 


0956 






DFC3SV A 001 1763 


0982 


0914* 093C 








DFDB A 002 1769 


0991 


0925 








DISKTP A 001 1075 


0569 


0069* 0094* 


0131* 


0356* 


05 07* 0510* 


DSKPFT A 014 116B 


0577 


0508* 0511* 


0585 






BBDSET A 004 1071 


0567 


0464* 0565 








EBDSTP A 0C4 0E29 


0440 


0411* 0415 


04 25 






EBD16 A 0C4 0AE3 


0129 


0124 








EQ0CHK A 04 152 A 


0829 


0813 0843 








EBCOBT A 002 1271 


0621 


0416 041 e* 


0424* 


0439* 


0599 0601* 


EBHFLG A 001 177B 


1008 


0058* 0101 


0111 


0320* 


0737* 


EBBOBA A 19 15E4 


C893 


0921 








EFBOB2 A 044 1411 


0767 


0761 








ERBOB3 A 042 CF8A 


0448 


0219 








EBBOB4 A 048 0EBA 


0449 


0275 








EBBOB5 A 052 1445 


0768 


0743 








EBBOB6 A 32 1604 


0894 


0839 








EBBOB7 A 032 1624 


0895 


0848 








EBBOB8 A 050 1656 


0896 


0866 








EBBOB9 A 042 OE60 


0447 


0289 








BXITER A 004 15C1 


0886 


0883 








EIITOK A 004 15C8 


0888 


08 34 








EXTSAV A 002 15D0 


0891 


0873* 0886 


0888 






rrs a 001 oooo 


0003 










FITE A 001 176F 


0995 


0127 








FBOBTT A 06 17C7 


1025 


.022* 








FBOH A 006 17B5 


1022 


1016* 








FBSTPS A 01 1761 


0980 


0465* 0949* 0950 


0952* 


FHDSEK A 004 1734 


967 


09>1 








FXDISK A 14 1190 


0580 


0511 








BA C 001 003F 


1046 










SALT C 001 0222 


1063 


0163 0221 


0254 


0277 


0291 0380 






0558 0745 


0763 


0823 


0841 0850 


BB C 001 0079 


1047 










BC C 01 006C 


1048 










BD C 001 0073 


1049 










BE C 001 007C 


1050 










BF C 01 003C 


1051 










BH C 001 003B 


1052 










BZBTT A 001 1798 


1014 


1025* 1027 


* 






BO C 001 006F 


1036 










fll C 001 0003 


037 










DATE 06APB7 


22HAT70 01AOG70 


01OCT70 




BC »0. 571516 


571513 


571531 


571540 





0900 0909 0946 1015* 1016 1017* 



0393 0403 0437 0490 0503 0522 
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FF53 



C E 



DISK 



PART NO. 
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11 



INITIALIZES 



CROSS-REFERENCE 



STBBOL T LEU VALUE DEFN 



REFERENCES 



H2 

H3 

HO 

H5 

H6 

H7 

H8 

H9 

IDERHG 

ID ERR 

IDRR 

IN IT 

INITA 

IHITAA 

IBITAB 

IHITAC 

ISITAD 

INITAE 

ISITAF 

INITAG 

IRITAH 

INITAI 

INITAJ 

IIITAK 

IIITAL 

miTAH 

IdlTAH 

INITAO 

I"ITAP 

INITAQ 

IilTBA 

INITEB 

IIIT13 

IBIT14 

IIIT22 

INTOEQ 

LAST AD 

LDFCF 

LDFDR 

LINK 

LIST 

LOAD 

LOVER 

LSTADR 

LSTSAV 

H0D1 

BOD2 

BOD3 

H0D4 

BOD5 

HOD6 

BSGA1L 

HSGCAT 

BSG7 8F 

BSGBID 

BSG01 

NODISK 

■OSEEK 

■OSPND 

BTFDY 

ONE 

OTORZ 
PRINT 



001 
CC1 
001 
001 
001 
0C1 
001 
001 
049 
0C4 
04 
001 
001 

ocu 

04 
04 
04 
OC4 
0C4 
O04 
06 
OC6 
006 
04 
04 
0C4 
04 
0C4 
04 
0C4 
06 
004 
004 
04 
004 
004 
001 
04 
004 
001 
001 
0C1 
005 
002 
0C2 
001 
002 
02 
001 
002 
001 
37 
027 
032 
045 
027 
005 
04 
008 
001 
002 



A 06 
C 001 



0076 

0057 

00 13 

00 5C 

007 D 

0007 

007F 

005F 

0B8 2 

0B3E 

ODAC 

0AO0 

OAOD 

0F31 

0A">5 

0A25 

0A35 

OBBB 

0AS7 

0AF6 

0B8F 

0BA5 

0C15 

0C80 

0C96 

0C2A 

OBAF 

0C01 

0C6 5 

0AC9 

0B31 

0A8C 

0DO3 

0D13 

0D6A 

1555 

1762 

16AB 

16AF 

0216 

17F5 

022A 

14B0 

0F2D 

0F2B 

0F6C 

1220 

1222 

103B 

103D 

1044 

121E 

11CE 

0F27 

0EE7 

1797 

10FC 

1747 

1133 

00A0 

176D 

17C1 
021 A 



1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

0168 

0157 

03 87 

0010 

0029 

0464 

0050 

056 

0061 

0192 

0133 

0137 

0179 

0184 

0225 

0259 

0265 

0230 

0186 

02 If 

0247 

0123 

0153 

0095 

0318 

0323 

0357 

0845 

0981 

0924 

0925 

1059 

1034 

1061 

0777 

0455 

0454 

0479 

05 85 

0586 

0545 

0546 

0549 

0584 

05 82 

0452 

0450 

1010 

0573 

0972 

0575 

0985 

0993 

1024 
1060 



0160 
0084 
346 

0019 
0048 
0166 
0119 
0093 
0284 
0102 
0134 
0154 
0229 
0199 
0201 
0203 
0227 
0214 

02 06 
0234 
0117 
140 
0063 
0386 
0355 

03 30 
0815 
0955* 
0526* 
0532* 

0455 

0256 

0714 

0181 

0182* 

0470* 

04 75 
0471 
04 72* 
0471* 
0539* 
0557 
0551 
0434 
0400 
0252 
0485 
0960 
0489 
0940 
0092 
0755 
1019* 
0157 
0498 
0845 



039C 



0307 

0223 0279 0293 0747 0765 0871 



0112 



024 9 

0263 0271 



02 3 6 

0142 

0077 0081 



0339 0343 

C95S 0963 0969 0976* 

0529* 0532 0533 0534 0535 05 36 0537 0538 0921 



0382 

0724 0791 

0259 0262* 
047 4* 



0476* 
0475* 
0542* 



C378 
0501 



0520 

0128 
0856 

0216 
0517 
086 3 



0138 0147 

1015 1O20 

0249 C272 

0543 548 



0213 
1027 

0286 
0554 



0231 0241 0283 0354 C424 0608 0640 



0375 0387 0397 0431 0477 0482 0496 
0726 07 31 0740 0758 0796 0818 0836 



DATE 
EC 10. 



06APR7 
571516 



22HAT70 
571513 



01A0G70 
571531 



01OCT70 
571540 



PROG ID 
PAGE 



0FF5-3 
11 



IBH HAMTENAHCE DIAGHOSTIC PHOGRAH 



PART 
PAGE 



NO. 



5129658 
11A 



FF53 



C E D I 



INITIALIZER 

CROSS-REFERENCE 



STHBOL ' 


T LEN VALUE 


DEFN 


REFERENCES 


















PROCED 


A 04 


0A21 


0055 


0129 


0136 


0155 
















PROC1 


A 04 


OCFF 


0317 






















PRTER4 
RDDFC 


A 04 
A 001 


OCBO 
1776 


0272 
1003 


0269 
C073 


0076 


0079 


0195 


02 00 


0202 


03 35 


0338 


0341 0659 


0662 0687 


READER 


A 0C4 


0CC4 


0281 


0074 


0196 


0336 
















READPT 


A 004 


0CD5 


02 86 


0282 




















RE SEEK 


A 004 


15A1 


0873 


0825 


0832 


0852 


0857 














RETRY 


A 01 


0F30 


04 57 


0059* 


0083 


00 92* 


0185* 


0205 


0213* 


0281 


0283* 


0321* 0345 


0354* 


BLfCR 


A 04 


170E 


0956 


0537* 




















RED' SK 


A 14 


1182 


0579 


0508 




















RSIO 


A 003 


1712 


0957 


0538* 


092 C* 


0923* 
















RTN02 


A 0C1 


0CE9 


0302 


0031 




















ROHPRT 


A 042 


115D 


0576 


0527* 


053C* 


















SAYIR1 


A 0C2 


0B8E 


0174 


0149* 


0150 


0243* 


0244 














SCBCH 


A 001 


175E 


0978 


0932 


096 3* 


0964* 


0968* 


0969* 


0975 










SECTSW 


C 001 


02OA 


1056 


067 


014 1 


0235 


0329 


0466* 


0494 


4 96 


0513 


0515 




SEEKCK 


A 06 


1571 


0856 


0817 


086 2 


















SEEKER 


A 04 


14EC 


0807 


0065 


019C 


03 27 


0653 


0670 


0695 


08 26 


0933 


0S53 




SEKEXT 


A 04 


157F 


085S 


0807* 


0827 


0834 


0854 














SBKRTT 


A 004 


1583 


0e61 


0858 




















SENSE 


A 004 


1657 


0900 


0412 


0427 


0561 


0593 


0612 


0309 


0934 








SETA 


A 006 


0FE6 


0526 


0514 




















SETA DA 


A 006 


1715 


0959 


0951 




















SETADB 


A 06 


174E 


0975 


0965 


097C 


















SETADR 


A 004 


16E9 


C946 


0916 




















SETB 


A 06 


0FF3 


0529 


0516 




















SETBTH 


A 0C6 


OFFD 


0532 


0523 




















SETDSK 


A 04 


0F87 


0493 


0505 


0524 


















SETFIX 


A 004 


16A3 


0922 


0918 




















TETFXT 


A 04 


OFBA 


0510 


0497 




















SBTRHY 


A 004 


OFAD 


0507 


0495 




















SETSPL 


A 004 


0FC4 


0513 


0509 




















SETXR2 


A 002 


1760 


0979 


0909* 


0910 


09 38 
















SIO 


A 003 


16B3 


0926 


0533* 


0911* 


0912* 


C919* 


0922* 












SI01 


A CC4 


ODEF 


0419 


0426 




















SI02 


A 06 


0DF3 


0424 


0430 




















SI03 


A 04 


OE08 


0427 


0423 




















SIS 


A 004 


1664 


0903 


0536* 


0902* 


















SRSXR2 


A 002 


166C 


0905 


0900* 


0901 












' 






SPIDLA 


A 001 


1764 


0988 


0526 




















SPBDLB 


A 001 


1765 


0989 


0529 




















STATDS 


A 002 


176B 


0992 


0414 


04 2 9 


0564 


0595 


06 14 


0312 


0314 


0316 


09C3* 0936 




STEPCE 


A 0C4 


ODCO 


0397 


0361 




















STBPC1 


A 04 


0DD4 


0411 


0369 




















STEPC3 


A 04 


0DA4 


0385 


0374 




















STEP 10 


A 04 


1223 


0592 


0109 




















STEP12 


A 04 


1272 


0632 


0099 


0617 


















STPPTR 
STRTIO 


A 003 

A 004 


0B20 
166D 


0148 
0909 


0146 
0061 


007C 


0086 


0095 


0105 


0136 


0192 


0203 


0323 0332 


0348 0357 










0365 


0419 


06C3 


0648 


0655 


066 6 


0677 


0684 


0691 0700 


0780 0874 










0879 




















STRTHS 


A 049 


10C3 


0571 


0480 




















ST12A 


A 04 


127E 


0635 


0641 




















ST12B 


A 006 


129E 


0643 


0639 




















ST12C 


A 006 


12AC 


0647 


0753 


0757 


















ST12C1 


i A 006 


13AB 


0749 


0663 




















ST12CB 


I A 004 


13C0 


0754 


0751 




















ST12E 


A 004 


14B1 


0779 


0637 




















ST12EX A 001 


1393 


0738 


0632* 0300 


















SWITCH C 001 


020A 


1057 


0123 


0139 


0233 


0540 


0552 












S10A 


A 0C4 


123E 


0603 


0610 




















S10B 


A 006 


124A 


06 08 


0616 




















S10C 


A 004 


1257 


0612 


0607 




















S10EXT A 04 


126C 


0620 


0592 


• 0597 


0609 
















S12D 


A 04 


1397 


07*0 


0688 




















TABADR A 02 


14A6 


0775 


0633 




















DATE 


06APR70 


22HAY70 01A0G70 


01OCT70 












PROG ID 
PAGE 


EC 10 


. 571516 


571513 


571531 


571540 













0FF5-3 
11A 



IBM BAINTENANCE DIAGNOSTIC PROGRAM 



PABT HO. 
PAGE 



5129658 
12 



PF53 



C E DISK 



INITIALIZES 

CBOSS-BEFEBENCE 



STHBOL 


T 


LEN 


VALOE 


DEFN 


REFERENCES 






















TABL12 


A 


003 


14A2 


0773 


0774 


0775 






















TBLEND 


A 


002 


0B8C 


0173 


0150 
























TBLEHE 


A 


02 


0E36 


0445 


0244 
























TBLBEV 


A 


001 


0E2D 


0442 


0238 
























TEST 


C 


001 


0212 


1058 


0493 
























TIXE 


A 


OOU 


17E6 


1031 


1021* 


1028 






















TOBYT 


A 


06 


17DC 


1029 


1023* 
























TRACKt 


A 


001 


177C 


1009 


0153 


0179 


0312 


0563* 


0566* 
















TSTEBB 


A 


003 


16E3 


0940 


0535* 


0929 


0933 




















TSO 


A 


002 


0F2F 


0456 


0262 


0270 


10 17 




















TTEOT 


A 


06 


17BB 


1023 


1018* 
























DHITS 


A 


010 


17F4 


1033 


1026 
























UNPACK 


C 


001 


021E 


1062 


























OP PES 


A 


005 


14AB 


0776 


0712 


0722 


0794 




















BAIT 


A 


004 


16B6 


0927 


0534* 
























SOBK 


A 


001 


177A 


1007 


0055* 


0116 


0118* 


0317* 


0373 


0385* 


09 91 












WFTDFC 


A 


001 


1772 


C999 


0050* 


0051* 


00 52* 


0056* 


0057* 


0064 


0076 


0089 


0098 


0103* 


0104* 


0108 












0133 


013 5* 


0137* 


0138* 


0145 


0147* 


0153 


0179* 


0180* 


0184 


0189 


0198 












0207* 


021 1 


0225* 


0226 


0228* 


0230* 


0231* 


0239 


0241* 


0247 


0260 


0311* 












0312* 


031 3* 


0318* 


0319* 


03 26 


03 33 


0351 


0360 


0363* 


0364* 


0368 


0422 












0606 


0636 


064 3 


0644* 


0645* 


0647 


06 52 


0664* 


0669 


0672* 


067 3* 


0674* 












0675* 


06 8 1 


0690* 


0694 


0696* 


0697* 


0698* 


0699* 


07 C4 


0736* 


0749* 


0750 












0752* 


0754* 


0755* 


0756 


0779* 


0734 


0786* 


0788 


08 77 


0882 


0914 


0930* 












0931* 


095 3* 


0954* 


0959 


0962* 


0964 


0967* 


0963 


0972* 


0975* 


0976 


0990 


SRTSAV 


A 


00 


149B 


0771 


0184* 
0792 


0198 


02 07 


0225 


0266* 


0267 


Of 3* 


0664 


06 96 


0707 


0710 


0736 


XB1 


C 


001 


0001 


1053 


0144* 


0145 


0148 


0148* 


0149 


0233* 


02 39 


0242 


0242* 


0243 






IB2 


C 


001 


0002 


1054 


0181* 


0182 


0183 


0259* 


0260 


0261 


0265* 


0267 


0633* 


0634 


06 35* 


0636 












0886* 


088 7 


0888* 


0889 


0901* 


0902 


0904 


0910* 


09 11 


0912 


0913 


0915 












0928 


0938* 


0940 


0941 


0947 
















XXX 


A 


04 


OCED 


0307 


0395 


04C5 


0870 




















ZROTO 


A 


06 


17CD 


1026 


1024* 

























TOTAL STATEBESTS FLAGGED IN THIS ASSEMBLY = 



SITE 


06APB70 


22HAY70 


01ADG70 


01OCT70 


EC NO. 


571516 


571513 


571531 


571540 



PROG ID 
PACE 



0PF5-3 
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IBH HAINTE:.ANCE DIAGNOSTIC PROGRAM PAST NO. 5129658 

PAGE 12* 

FP53 CE DISK INITIALIZER 

OBJECT CARD LISTING 

THE CHARACTER INDICATES A BLANK COLUHN AND THE CHARACTERS D E H INDICATE HUHERIC SHIFT. 

CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH <»8 CL l»9 THROUGH 6H CL 65 THROUGH 80 CL 81 THROUGH 96 



T*-T:"5< S B-U H 6 D C+X /OS 1| P*T0 E7<8 A) H\ EMP;T0PE7H<H1) H | P;30HC3C /1R _ "BHFF530001 

T+-Z5B7./1LH+D BB7H6JC0HDGP /1H _ 6DP)%BSC<6( A) 3E7^2-K*9 1)69/ C3Y*)|S |<|HA3<B GEW4 61UFF530002 
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T+-, ,DS<'* A) #S-D _|5 P;?HABC0 E7, /OY¥* HBB7HRE3U E6#2 5Q< A) >E6i | A)>E67 6Y/*H P) | H 09QFF530004 

T+HUD -:-A)40H* HHL> E7S* A) 3E6U 8B HH3/ D + D BB?H £H9HA38<) A) 3 | H AA-8 E7<P$)HA L6 AB98 7J-FF530005 

T*-_/C6D.T-X0*D .D-tt E7<P-|HDN*B GESG /0HE1TD.-DC 90H*3HaC90H*HD* | A5) P08UCS1*PKS+ | OG<< 39<FF530006 

T*->*5_XR1*1T6<| YUaXNKPRS<.E1_$ R 1HCH6 *X72) PG5<X DA SFJd/IKat . SO C P* 1) 9+Y P) CH 5C21 #1SFF530007 

T*-?P(*H|H36BC2U <*/K$E76dB 900H* OSS E7. /1L*0H* 0SSDAS7S /03DC5 HH/) 38 YZE | SH' ■} ?H ADLU L90FF530008 

T«~0K*J)6aYF8|6* 1< | H AG* 0BE76Sa9B GSSU J)20H*.'03 C3 P$*333:"/0H E1SY+SB H0H*EHD HOH* EJQFF530009 

T*-1<B/D<"/)4EI* 3-A)4»Z H+3 P)<B GB:F1:-A)4C0 P*1) _♦ -BB7HSHT/ -, 2D3|3 69_G6 P*0C 2 6Q S9QFFS30010 

_ _ - - • • • 

T*-2HC0 P*1)_4-D A( D.T-«AB83*(« ACDQ'"1)30 D.Z*B G /YFF1 ; PO h*3HDC 80H*BH- 5 -S.T D AE76 = YFF530011 

T»-3C>7»AC-D|lJ0a ?0H*<EL3BC2U*-1K S.6DHS0G2 6Y* SS ZC2" /00S0H*9F%2 0C,D-'<33 SH-'<B GB/D 2-6FF530012 

T*-3=|6 |<|HAB-a *C3*P$*BGEt?"/0H EISY'QH | 0H*BHD |0H*HD&H""" /Oi 1| P*-0 E7<P-C0 E76 Q2YFF530013 

T*-tt9|EHE;T0PE7B #-1)«| P;30HC3C /1R_ P**3GS*0 86 HHi/AD| -6) *3 GEHUA J)60H*<1 <* E7< =QQFF530014 

T*-5UE7-2-K*9 1) 64/ CSY*) | 6* |< I H AE<BGEH4 J) 20H» (P a C3 P$*B";CJ< 3 AA50 H*0$6H AE7 . /04 32SFF530015 

T*-6?0C_"E7&aE1) 50H*OS6DCE7. */07 B | 6 P; ?HADaBG /Y FF 1 ; P0H»3HDC90H* EH- 9 A):0K*( S3 G /Y * HFF530016 

T»-7D1YD.-DC90H* BHtC9CH*< t* BG* /, F.6#XYI3 /0HSYI3 /03_( -♦.<BGEY» B*K- PE 736JL4 DXG 2 66 LL-FF5300*7 

T*-8¥|"yK**BGEW4 a'i) ^0H**b"»DXD P$-HAI*BGC;" /1R P TOYEb. D 7»0H* BPSB C2;-=%BG SH -=T0 K.4FF530013 

T»-9-" AI10H** D_ HKH/GA-HDCTPE6)X 06BCB2 <XL1HCR1 »G D2) PG6<TDE4CP6) S G6«GH6 *| E6) LI5*G T1*C OTYFF530019 

T*-:$8JTE6<XD6(X E0»J " 1 ($E8UCS5> ( " 1)TU0) (" 8aTE6<X Df.<PX5aPC8»PD1) X FS_¥ 2)N 0) |T1) X N0;< -5aFF53O02O 

t»-«01HCT6«GCHOC A8>. II • PH 1 ) PTEUC P 1 • J. 6* |E6) J.6<P Hb) SR& ( $CO=LR6»P D6*SH21| EC<L02) P G6<D Q: PF530021 

D*TE 06IPB70 22HAY70 01ADG70 010CT70 PBOG ID 0FF5-3 

«C IO. 571516 571513 571531 5715A0 . PAGE 121 



IBB HAINTENANCE DIAGNOSTIC PROGRAH pj BT n . 5129658 

PAGE 13 

FF53 CE DISK INITIAIIZER 

OBJECT CARD LISTING 

CL 1 THROOGH 16 CI 17 THROUGH 32 CI 33 THROUGH 48 CL 49 TH800GH 6<J CL 65 THHOOGH 80 CL 81 THROOGH 96 

T+-3JC+$R2;|ES<X D6< | 05 (L A5*LE6) I 6HC009| 06) XE1DC S2<XL1 !1CD5%XN14C AC+PE6 *XF: DCDO; | A£<<* 6S-FF530022 

T*-'<5_JH0)PDS(S N6*|H1HCC1HCT6*G C4- P'C B C6 HDG69 A) /| P3T0 *E 68* * SYC4YD J | D8 | $" OL4FP530023 

T+-=G J 'DSHaSJ t9Y**|CD|$ 0ADC4 KKC08DC? /0HE6- S0:C00H*BF-DXD| 3 /0HEAS6J<9BG SH -9< 4K4FF530024 

T*-"B/0HK*H BB?H SF3/ -,2D3G /OH E 1T06"HC10H*BHDC 10H* | /30D3IKCJE ,DQ. 2/0Y9BAA 5C* 4 JE1 D* =-<FF530025 

T+-"'OC— -,2DA« 8D HH9/ /OH*BF*Q 7EL»-9%BG SH-9*S GC8*H AE%E6S99JE S9 Y*HB *0, A) V I | H JOO- " 3-XFF530026 

T+/ 8 ABOECOH AE 4ED0H AE7ED0H AS UEDOH ARVEDOH A* | EDOH* A*LED09A/A D»S-BB?H6AC0BDDL */0H* ) LYFF530027 

T + /A3F0H 9-933 G /Y |/G + »6-BB?H 6KBG /YFHAH;OH* BHDC30 H*0S0H*21 ) 9* -PE"HS AC1XE7 3 "/o" " OZ* FF53002 8 

T+/B> CF5_V 09* 8'XAO'I 2)PI89X A 49XZ0 ; | I5_N,S+ . E84CS9XIT09TE8OC T50CS1 ) | EO = (* 1<X S4U* " 8A*FF530029 

• ... 

T*/CZ9>LR1%GC1HC A5*J 1(XI9*S 5) S - 5) P 1<XS4BCS1)| E0 = |E1F_ 1)PT1)T 9-A 1_$P6(IE5($ V0*H 8CDFF530030 

T+/DU49H,S($a&|G ie<$06HCF2;-E1 (P Cg<LB2; PEC*. E4 9P C89PDE4CE5; | E6HC 190CF5_V* 1 (II9*N 90%* #9GPF530031 

T*/E-6|G36<$C6BC D6*X?1 HC25 ' *C1 • X A5ECH2) | L£ (P09UC I5*XT2 *GL2 ; X55<L I9_I* 1 (XI9*1* 96_ " &D* * 8CTFF530032 

T+/FEKIA 5EA 6DA SDA Q< | EE +| SO* | K 6*PB5 >PA0_ | E6<L I«_. F2 :-E1DCD2; . K6DA 6<| A9 *| 15_» -Q*<~ 6:9F?530033 

T*/GN2<XS6(-F5%- RO) J 9JXL44CD1 ; . T6) SY6<GL44CP6*P 12 ) $03_| Y5*$ 82; | T1) S KGTO ; .E5; . ES + H " 7SDFP530034 

T*/H69*XT09/ 9-J 2; I 5_N-Q<GL44C T6*GC4>I 2) PC4=L D2) FGS<^L2»- S5< P N84CT6 »GC4>I* 9%X 144 * =OFF530035 

T*/I.O»I 2)PIl'9X A49XZ1*6JE1E4( - K$9EGET*B *K-PE?H 6 *L4 DX32 65J9/I 10 H»0$6DC27. */1r PCO* *62<FF530036 

T*/HFDXDPJ-^HAF»3 GDT# /19P T0YE6, DAIH0H*K»T0 DIG /O 4BA*0(5H HZTSBE7D5* /) 1 TE* E7<" $8*FP530037 

T+/.A0BDM64AE7D HZ| HAB-3 AF70P$*B 5DX8< 1KJE7H9 J) 3| P) 0CEI9P) *B GEH4 " A) 20H*Ht<B GE8^ " 5C8FF530038 

T*/.* &DP)IBGDXY J)6dTGEC <P) JK $CH*0$S E7. /1L tC HP)JK-.| HP*T_ • , E7&iE 1) 50 H*OSSB »E7H =S8FP530039 

T*/<70B»L *BGE»4 A .') 60H»LVOOCE7* (IX9BGEW4 A) 20H» !!• 0BE7«-il30»E73 •- 1) 4 1 A*P) *BGE«4 B J* 6JTFF530040 

?*/(2'«BGD37 /I; REIDHLTS EI, 2D < » AJNEH?2/0Q<A A J NE.C /1;BEI4!!*3S *EI#2D *0<A AJ : EP? 2/OQ * *0< PF53004 1 

_ ... . . 

T*/*_C &n;/KO0H* BP-DVEF, /0HEAS4 HT00CE7F!HW33"E7? /O 0H*3F%Q4EDO - • %BG SH-'*BGB/D < 1* =9»FFS30042 

T*/l T) JK-»H P) |H 6BCD E7L /1H**8 P) 8 E7<P$L4DE7| JH«0H»BF*QtEAF -• *BG SH-« »BGB/G N50 H6YFF530043 

DATE 06APB70 22HAT70 01A0G70 01OCT7O PBOG ID 0PF5-3 

EC IO. 571516 571513 571531 571540 PAGE 13 



IBB MAINTENANCE DIAGNOSTIC PBOGRAB PART SO- 5129653 

PAGE 13A 

FF53 C E DISK INITIALIZER 

OBJECT CARD LISTING 

CL 1 THHOUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THBOUGH 96 

T+/ST0) |T1)XN0; | E6* | R0* | K80CL1*$ TE4CP6) SG6*GH6+| E6) LI5*3T1 *LE6) X 06KCM2 <XL 1HCH 1*G D2)H 3CRFP530044 

• • • • " * * 

T*/J :■"»(: II DC05HC D1*SE0 = |I9*S 8«I .6(-B5t-B0)J 83P R5* | HO* | K5 + -X96_ 9=^X9=) 8>LR1*J OH P YFF530045 

._ • .... 
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